home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / TCATT115.ZIP / REMOTE2.INI < prev    next >
INI File  |  1997-01-04  |  22KB  |  460 lines
  1. [Variables]
  2. n0=%pt 1
  3. n1=%ques1 a
  4. n2=%ques2 s
  5. n3=%ques3 d
  6. n4=%ques4 g
  7. n5=%ques5 h
  8. n6=%ques6 j
  9. n7=%ques7 t
  10. n8=%ans1 q
  11. n9=%ans2 e
  12. n10=%ans3 r
  13. n11=%ans4 t
  14. n12=%ans5 y
  15. n13=%ans6 u
  16. n14=%ans7 i
  17. n15=%question hh
  18. n16=%select 1
  19. n17=%/co dd
  20. n18=%realtime 7:33 AM
  21. n19=%ppage ╗Pager is ?┐½
  22. n20=%talk1 th╬º txt ╬º t╘╘ ▀«╬ght
  23. n21=%number 23
  24. n22=%color 10
  25. n23=%todo msg #mIRC_Scripts
  26. n24=%checkperv off
  27. n25=%playchan #hula
  28. n26=%numberofplayers 0
  29. n27=%players  
  30. n28=%talk 2t3h4╬5º6 7t8x9t10 11╬12º13 14t15╘2╘3 4▀5«6╬7g8h9t
  31. n29=%dareplayers á
  32. n30=%rand 2
  33. n31=%victim 1
  34. n32=%textSheridan Hey
  35. n33=%textMoods don't think there's that many girls here sea
  36. n34=%textPoohMastr ok
  37. n35=%b -b
  38. n36=%msg 0
  39. n37=%pager on
  40. n38=%pageme going to eat food, i'm starving.
  41. n39=%awaytime 13
  42. n40=%awayhours 0
  43. n41=%away 8:14:34
  44. n42=%page is Away 43going to eat food, i'm starving.4 Pager 4[3On4] type 2/ctcp Top^Catt page (REASON) to page me!! 4[3Left At 8:14:344]
  45.  
  46. [Commands]
  47. n0=~~~~~~~~~~~~~~~~AWAY NOTIFY~~~~~~~~~~~~~~~~~~~~~~~~
  48. n1=/awayon {
  49. n2=  set %awaynick $me
  50. n3=  set %awaymsg $?="Enter away msg"
  51. n4=  set %pmm 0
  52. n5=  ame # is now 2AWAY -{ $+ %awaymsg $+ }-
  53. n6=  ame SAVE is ON PAGER is ON
  54. n7=  nick $me-is-AWAY
  55. n8=  away -{ $+ %awaymsg $+ }- Ill Be Back
  56. n9=  enable #savemsg
  57. n10=  timer1 0 120 /ame is  2AWAY -{ $+ %awaymsg $+ }-
  58. n11=  timer2 0 120 /ame # SAVE is ON PAGER is ON
  59. n12=}
  60. n13=/awayoff {
  61. n14=  ame is now 2BACK -{not %awaymsg $+ }-
  62. n15=  ame I had %pmm people msg me!
  63. n16=  nick %awaynick
  64. n17=  away 
  65. n18=  disable #savemsg
  66. n19=  timer1 off
  67. n20=  timer2 off
  68. n21=  unset %awaymsg
  69. n22=  unset %awaynick
  70. n23=  unset %pmm
  71. n24=}
  72. n25=~~~~~~~~~~NEW AWAY PAGER~~~~~~~~~~~~~~~~~~
  73. n26=Away Options
  74. n27=.Set Away With Amsg Pager And *.Wav: {
  75. n28=  enable #away
  76. n29=  set %pager "Pager On Or Off??"
  77. n30=  :start
  78. n31=  set %pager $?= [ $+ [ %pager ] ]
  79. n32=  if ((%pager != on) && (%pager != off)) { set %pager "Invalid Pager Option Please Enter On Or Off" | /goto start } 
  80. n33=  set %pageme $$?="Enter Away Message"
  81. n34=  set %awaytime 0 
  82. n35=  set %awayhours 0
  83. n36=  set %away $time
  84. n37=  away %pageme
  85. n38=  %page = is Away 43 $+ %pageme $+ 4
  86. n39=  if (%pager = on) %page = %page Pager 4[3On4] type 2/ctcp $me page (REASON) to page me!!
  87. n40=  if (%pager = off) %page = %page Pager 4[3Off4] That Means 4[2Do Not Disturb4]
  88. n41=  %page = %page 4[3Left At %away $+ 4] 
  89. n42=  ame %page
  90. n43=  timer998 0 300 /ame %page
  91. n44=  timer999 0 60 /inc %awaytime 
  92. n45=}
  93. n46=.Set Here With Amsg And *.Wav: {
  94. n47=  disable #away
  95. n48=  :start
  96. n49=  if (%awaytime >= 60) { /set %awaytime %awaytime - 60 | /inc %awayhours | /goto start }
  97. n50=  away  
  98. n51=  ame is BacK!!!! 3I was gone 4[2 $+ %awayhours $+ 3 hour(s) and 2 $+ %awaytime $+ 3 min(s)4] 
  99. n52=  timer998 off 
  100. n53=  timer999 off
  101. n54=  unset %page
  102. n55=  unset %pager
  103. n56=  unset %pageme
  104. n57=  unset %awaytime 
  105. n58=  unset %awayhours
  106. n59=  unset %away
  107. n60=}
  108. n61=~~~~~~~~~~~~~~~BAZ_AWAY~~~~~~~~~~~~~~~~~~~~~~~~~~~
  109. n62=#pager disabled
  110. n63=1:page: {
  111. n64=  ignore -u10 $wildsite
  112. n65= if (%pager = OFF) || ((%pager != OFF) && (%pager != ON)) { notice $nick $chr(1) $+ PAGE I am NOT away. } 
  113. n66= elseif (%pager = ON) { beep 20 | /timer 1 5 /beep 20 | notice $nick $chr(1) $+ PAGE I was paged.. if i hear ya i'll come! | /echo 4 $active *** you have been paged by ╗ $+ $nick $+ ½ *** }
  114. n67=}
  115. n68=#pager end
  116.  
  117. [Events]
  118. n0=~~~~~~~~~~~~~~~~~~~~~FILE SERVER~~~~~~~~~~~~~~~~~~~~~~~~~~~
  119. n1=#fileserv start
  120. n2=1:ON TEXT:!Hott:#:/fserve $nick 1 c:\e
  121. n3=#fileserv end
  122. n4=~~~~~~~~~~~~~~~~~~~~~AUTO PING~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  123. n5=#ping start
  124. n6=1:on text:*ping me*:#:/ctcp $nick ping
  125. n7=1:on text:*!ping*:#:/ctcp $nick ping
  126. n8=1:on text:*!lag*:#:/ctcp $nick ping
  127. n9=1:on action:*ping me*:#:/ctcp $nick ping
  128. n10=1:on action:*!ping*:#:/ctcp $nick ping
  129. n11=1:on action:*!lag*:#:/ctcp $nick ping
  130. n12=1:on ctcpreply:*ping*: %pt = $ctime - $parm2 | /notice $nick **Your ping reply is %pt seconds** ôô Automatic Reply ôô
  131. n13=#ping end
  132. n14=~~~~~~~~~~~~~~~~~~~~SWEAR TIMER BANNER~~~~~~~~~~~~~~~~~~~~~
  133. n15=#Swear start
  134. n16=@1:ON TEXT:*shit*:#:/ban -u120 $chan $nick | /kick $chan $nick 12,8 Please Do Not Swear 5,9 ^2 Minute ban^
  135. n17=@1:ON TEXT:*fuck*:#:/ban -u180 $chan $nick | /kick $chan $nick 8,1 Please Do Not Swear 5,9^3 Minute ban^
  136. n18=@1:ON TEXT:*bitch*:#:/ban -u30 $chan $nick | /kick $chan $nick 8,1 Please Do Not Swear 5,9^30 Second ban^
  137. n19=@1:ON TEXT:*dick*:#:/ban -u120 $chan $nick | /kick $chan $nick 8,1 Please Do Not Swear 5,9^2 Minute ban^
  138. n20=@1:ON TEXT:*piss*:#:/ban -u30 $chan $nick | /kick $chan $nick 8,1 Please Do Not Swear 5,9^30 Second ban^
  139. n21=@1:ON TEXT:*cunt*:#:/ban -u30 $chan $nick | /kick $chan $nick 8,1 Please Do Not Swear 5,9^30 Second ban^
  140. n22=@1:ON TEXT:*puss*:#:/ban -u60 $chan $nick | /kick $chan $nick 8,1 Please Do Not Swear 5,9^1 Minute ban^
  141. n23=@1:ON TEXT:*#*:#:/ban -u120 $chan $nick | /kick $chan $nick 11,1 Please don't type that. 5,9That is not aloud to be typed in here, Thanks ^2 minute ban^
  142. n24=#Swear end
  143. n25=~~~~~~~~~~~~~~~~~~~REPEAT KICKER~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  144. n26=#repeat start
  145. n27=*+1:on text:*:#: {
  146. n28=  if ($nick isop $chan) { halt }
  147. n29=  if ((yes == %ban [ $+ [ $nick ] ]) && ($parms == %text [ $+ [ $nick ] ])) { ban $chan $nick 3 | kick $chan $nick Excessive repeating: BANNED | halt }
  148. n30=  if ((yes == %kick [ $+ [ $nick ] ]) && ($parms == %text [ $+ [ $nick ] ])) { kick $chan $nick You were warned Repeating | set %ban $++ $nick yes | timer 1 20 unset %ban $++ $nick | halt }
  149. n31=  if ($parms == %text [ $+ [ $nick ] ]) { notice $nick Please don't repeat yourself, it'll get you kicked | set %kick $++ $nick yes | timer 1 15 unset %kick $++ $nick | onotice $chan Ops: $+ $chan $+ > Repeat warning sent to $nick }
  150. n32=  set %text $++ $nick $parms
  151. n33=  timer 1 15 unset %text $++ $nick
  152. n34=} 
  153. n35=#repeat end
  154. n36=~~~~~~~~~~~~~~~~~~~POLLS~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  155. n37=#polls disabled
  156. n38=1:ON NICK: {
  157. n39=  if ($newnick isin %notagain) /halt
  158. n40=  if ($nick isin %notagain) { /notice $newnick HAHAHA!! dont think so!!  | /set %notagain %notagain $newnick }
  159. n41=}
  160. n42=1:ON TEXT:!yes*:#: {
  161. n43=  if ($nick isin %notagain) { /notice $nick You Can Only Vote Once D00D  | /halt }
  162. n44=  /notice $nick THaNK You FoR VoTiNG YeS!! :) 
  163. n45=  /set %notagain %notagain $nick
  164. n46=  /inc %yes
  165. n47=  /inc %totalvoters
  166. n48=}
  167. n49=1:ON TEXT:!no*:#: {
  168. n50=  if ($nick isin %notagain) { /notice $nick You Can Only Vote Once D00D  | /halt }
  169. n51=  /notice $nick THaNK You FoR VoTiNG No!! :) 
  170. n52=  /set %notagain %notagain $nick
  171. n53=  /inc %no
  172. n54=  /inc %totalvoters
  173. n55=}
  174. n56=#poll end
  175. n57=~~~~~~~~~~~~~~~~~~SHUT-UP KICKER~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  176. n58=@+20:ON TEXT:*:#:/msg $chan $nick I told you to SHUT UP !!! |/kick $nick $chan | /ban -u10 $chan $nick 2 | k $nick SHUT UP !! 1,15-=1,14[4,1 ╖▀ú├⌐]{-Tδ]{╖ 1,14]1,15=-  | /ruser $nick
  177. n59=@+20:ON ACTION:*:#:/msg $chan $nick I told you to SHUT UP !!! | /kick $nick $chan | /ban -u10 $chan $nick 2 | k $nick SHUT UP !! 1,15-=1,14[4,1 ╖▀ú├⌐]{-Tδ]{╖ 1,14]1,15=-  | /ruser $nick
  178. n60=~~~~~~~~~~~~~~~~~~AWAY NOTIFY~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  179. n61=savemsg disabled
  180. n62=1:on text:*:?: {
  181. n63=  if $nick = $me goto nm
  182. n64=  inc %pmm 1
  183. n65=  msg $nick I am 2AWAY -{ $+ %awaymsg $+ }-
  184. n66=  msg $nick If you would like to leave a message..then do so.
  185. n67=  msg $me -< $+ $nick $+ >- $parms
  186. n68=  close -m $nick
  187. n69=  :nm
  188. n70=  msg $me < $+ $nick $+ > $parms
  189. n71=  halt
  190. n72=}
  191. n73=#savemsg end
  192. n74=~~~~~~~~~~~~~~~~~~~~~~CHECK PERSON~~~~~~~~~~~~~~~~~~~~~~~~
  193. n75=1:on join:#channel:/set %badnick $nick | /set %checkperv on | /set %tempCHAN $chan | /whois %badnick
  194. n76=~~~~~~~~~~~~~~~~~~~~~~DARE~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  195. n77=#dare start
  196. n78=1:on text:~dare:#: { 
  197. n79=  if (($nick !isin %players) || ($nick isin %dareplayers)) { halt }
  198. n80=  set %gun $r(1,6)  | goto %gun 
  199. n81=  :1 | notice $nick Bang Your Dead ! | %dareplayers = %dareplayers $nick | goto end
  200. n82=  :2 | notice $nick Sheesh Close ,  1 chamber off | %dareplayers = %dareplayers $nick | goto end
  201. n83=  :3 | notice $nick Sheesh You are lucky 2 chambers off | %dareplayers = %dareplayers $nick | goto end
  202. n84=  :4 | notice $nick Sheesh You are lucky 3 chambers off | %dareplayers = %dareplayers $nick | goto end
  203. n85=  :5 | notice $nick Sheesh You are lucky 4 chambers off | %dareplayers = %dareplayers $nick | goto end
  204. n86=  :6 | notice $nick Sheesh You are lucky 5 chambers off | %dareplayers = %dareplayers $nick 
  205. n87=  :end | inc %drplay 1 | if (%drplay = %numberofplayers) { unset %playchan | unset %players | unset %dareplayers | unset %numberofplayers | unset %drplay | unset %gun | disable #dare } | halt 
  206. n88=}
  207. n89=#dare end
  208. n90=~~~~~~~~~~~~~~~~~~~~~~NEW AWAY PAGER~~~~~~~~~~~~~~~~~~~~~~~
  209. n91=#away disabled 
  210. n92=1:ON TEXT:*:?:if (away) { /msg $nick Im Away Reason: $+ %pageme $+  }
  211. n93=#away end
  212. n94=~~~~~~~~~~~~~~~~~~~~~~CLONE JOIN~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  213. n95=1:ON JOIN:/clonejoin
  214. n96=~~~~~~~~~~~~~~~~~~~~~~ABC VOTING~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  215. n97=#abcpoll disabled
  216. n98=1:ON NICK: {
  217. n99=  if ($newnick isin %notagain) /halt
  218. n100=  if ($nick isin %notagain) { /notice $newnick HAHAHA!! dont think so!! | /set %notagain %notagain $newnick }
  219. n101=}
  220. n102=1:ON TEXT:!vote*:#: {
  221. n103=  if ($nick isin %notagain) { /notice $nick You Can Only Vote Once D00D | /halt }
  222. n104=  if ($parm2 = a) { /inc %a | /set %notagain %notagain $nick | /inc %totalabc | /notice $nick Thank You For Participating! | /halt }
  223. n105=  if ($parm2 = b) { /inc %b | /set %notagain %notagain $nick | /inc %totalabc | /notice $nick Thank You For Participating! | /halt }
  224. n106=  if ($parm2 = c) { /inc %c | /set %notagain %notagain $nick | /inc %totalabc | /notice $nick Thank You For Participating! | /halt }
  225. n107=  /notice $nick Please Make A Valid Vote %popver
  226. n108=}
  227. n109=#abcpoll end
  228. n110=~~~~~~~~~~~~~~~~~~~~~SCAN TEEN CHANNELS~~~~~~~~~~~~~~~~~~~~
  229. n111=1:on join:#:/whois $nick
  230. n112=~~~~~~~~~~~~~PERV KICKER~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  231. n113=1:on join:#: { if ($me isop $chan) { %snick = $nick | %schan = $chan | .enable #checkchan | whois $nick } | else { halt } }
  232. n114=~~~~~~~~~~~~~~~~~~~BAZ_AWAY~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  233. n115=#away start
  234. n116=1:on text:+PAGE:?: {
  235. n117=  ignore -up10 $wildsite
  236. n118=  if (%pager = OFF) || ((%pager != ON) && (%pager != OFF)) { msg $nick sorry my pager is off (type +MSG <text> to leave a msg) }
  237. n119=  elseif (%pager = ON) { beep 20 | timer 1 5 beep 20 | msg $nick i'v been paged.. if i hear ya i'll come }
  238. n120=}
  239. n121=1:on text:+MSG*:?: { ignore -up10 $wildsite | msg $nick your /msg was saved | write $mircdir $+ msg.txt $nick ( $+ $address $+ ) left the msg: $parm2* }
  240. n122=1:on text:*:?: { ignore -up10 $wildsite | msg $nick sorry i'm away right now, Reason: Ä $+ [ %away ] $+ Ä (type +MSG <text> to leave a msg) }
  241. n123=1:on text:*:#:
  242. n124=if ($me isin $parms) { 
  243. n125=  if (%pager = OFF) || ((%pager != OFF) && (%pager != ON)) { ignore -uc10 $wildsite | notice $nick have you said my name?? i think so.. or maybe i'm wrong??... well anyway.. i'm away since %date !! }
  244. n126=  elseif (%pager = ON) { ignore -uc10 $wildsite | notice $nick have you said my name?? i think so.. or maybe i'm wrong??... well anyway.. i'm away since %date !! | /notice $nick you can page me by typing /CTCP $me PAGE and if i'll hear you i will come :o) }
  245. n127=}
  246. n128=else { halt }
  247. n129=}
  248. n130=#away end
  249. n131=~~~~~~~~~~~~IDLE KICKER~~~~~~~~~~~~~~~~~~~~~~~~~~
  250. n132=@1:ON NICK: {
  251. n133=%t = $readini idle.ini idlekick $nick
  252. n134=if (%t == $null) { writeini idle.ini idlekick $newnick $ctime }
  253. n135=else { remini idle.ini idlekick $nick | writeini idle.ini idlekick $newnick %t }
  254. n136=unset %t
  255. n137=}
  256. n138=@1:ON JOIN:%idlechan:/writeini idle.ini idlekick $nick $ctime
  257. n139=@1:ON TEXT:*:%idlechan:/writeini idle.ini idlekick $nick $ctime
  258. n140=@1:ON ACTION:*:%idlechan:/writeini idle.ini idlekick $nick $ctime
  259. n141=@1:ON PART:%idlechan: {
  260. n142=if ($nick == $me) { .timer30 off | unset %seconds %idlechan | remini idle.ini idlekick | echo 2 -a IdleKick has been disabled for $chan $+ . | .disable #idlekick }
  261. n143=else {
  262. n144=  %t = $readini idle.ini idlekick $nick
  263. n145=  if (%t == $null) { halt }
  264. n146=  else { remini idle.ini idlekick $nick }
  265. n147=  unset %t
  266. n148=}
  267. n149=}
  268. n150=@1:ON KICK:%idlechan:{
  269. n151=%t = $readini idle.ini idlekick $nick
  270. n152=if (%t == $null) { halt }
  271. n153=else { remini idle.ini idlekick $nick }
  272. n154=unset %t
  273. n155=}
  274. n156=@1:ON QUIT:{
  275. n157=%t = $readini idle.ini idlekick $nick
  276. n158=if (%t == $null) { halt }
  277. n159=else { remini idle.ini idlekick $nick }
  278. n160=unset %t
  279. n161=}
  280. n162=#idlekick end
  281. n163=~~~~~~~~~~~~~~~~TEST~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  282.  
  283. [Raw]
  284. n0=~~~~~~~~~~~~~~~~~~~~UNBAN ALL BANS~~~~~~~~~~~~~~~~~~~~~~~~~
  285. n1=367:*: { 
  286. n2=  if ($parm4 = $me) { 
  287. n3=    %bsite = %bsite $parm3 
  288. n4=    if ($token(0,32,%bsite) = 4) { mode $parm2 -bbbb %bsite | unset %bsite }
  289. n5=  }
  290. n6=}
  291. n7=368:*: { 
  292. n8=  if (%bsite != $null)  { 
  293. n9=    %b = -b 
  294. n10=    if ($token(0,32,%bsite) > 1) { 
  295. n11=      :n | %i = 1 |  inc %i 1 | %b = %b $+ b
  296. n12=      if (%i = $token(0,32,%bsite)) { mode $parm2 %b %bsite | goto end } 
  297. n13=      goto n
  298. n14=    }
  299. n15=    else { mode $parm2 -b %bsite | goto end }
  300. n16=  }
  301. n17=  :end | unset %bsite
  302. n18=}
  303. n19=~~~~~~~~~~~~~~~~~Scanner~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  304. n20=#opscan disabled
  305. n21=352:*: {
  306. n22=  if (* isin $parm7) { set %oper %oper $parm6 }
  307. n23=}
  308. n24=315:*: {
  309. n25=  %todo Scanning for IRCops on ╗ $+ $parm2 $+ ½ . . .
  310. n26=  if (%oper != $null) { %todo IRCops: %oper }
  311. n27=  else { %todo No IRCops Present }
  312. n28=  .disable #opscan | unset %oper
  313. n29=}
  314. n30=#opscan end
  315. n31=#adv disabled
  316. n32=352:*: {
  317. n33=  if (%clone == $null) { set %clone echo 4 *** }
  318. n34=  if (+ isin $parm7) { set %voiced %voiced $parm6 }
  319. n35=  if (G isin $parm7) { set %awayz %awayz $parm6 }
  320. n36=  if (* isin $parm7) { set %operz %operz $parm6 }
  321. n37=  if (@ isin $parm7) { set %chnop %chnop $parm6 }
  322. n38=  if ((@ !isin $parm7) && (+ !isin $parm7)) { set %nonop %nonop $parm6 }
  323. n39=  if (%clonenick [ $+ [ $parm4 ] ] != $null) && ($parm4 !isin %cloneaddlist) { set %cloneaddlist %cloneaddlist $parm4 } 
  324. n40=  set %clonenick $+ $parm4 [ %clonenick [ $+ [ $parm4 ] ] ] $parm6 | halt
  325. n41=}
  326. n42=315:*: {
  327. n43=  %clone 15 $str(25,=-) $+ = $+ 
  328. n44=  %clone 12BaZ's ChaNneL StaTiSTiC FoR ╗ $+ $parm2 $+ ½ . . .
  329. n45=  if ((%chnop == $null) && (%nonop != $null)) { %clone No One iS OpeD =) | goto next }
  330. n46=  elseif ((%chnop != $null) && (%nonop == $null)) { %clone eVeRy oNe aRe OpeD =) | goto next }
  331. n47=  else { goto oped }
  332. n48=  :oped
  333. n49=  if ($count(%chnop,$chr(32)) < 5) { %clone ChanOpS: 13 $+ %chnop $+  | %clone NumBeR Of OpS:  $+ ╗ $+ $opnick(0,$parm2) $+ ½ $+  }
  334. n50=  else { %clone To MaNy ChanOpS To LisT =) | %clone NumBeR Of OpS: 13 $+ ╗ $+ $opnick(0,$parm2) $+ ½ $+  }  
  335. n51=  if ($count(%nonop,$chr(32)) < 5) { %clone NoN-OpS: 13 $+ %nonop $+  | %clone NumBeR Of OpS: 13 $+ ╗ $+ $nopnick(0,$parm2) $+ ½ $+  }
  336. n52=  else { %clone To MaNy NoN-OpS To LisT =) | %clone NumBeR Of NoN-OpS: 13 $+ ╗ $+ $nopnick(0,$parm2) $+ ½ $+  }
  337. n53=  if (%voiced != $null) { %clone VoiCeD:  $+ %voiced $+  }
  338. n54=  else { %clone No oNe iS VoiCeD. }
  339. n55=  :next
  340. n56=  %clone ToTal PeoPle: 13 $+ ╗ $+ $nick(0,$parm2) $+ ½ $+ 
  341. n57=  if (%awayz != $null) { %clone aWaY: 13 $+ %awayz $+  }
  342. n58=  else { %clone No oNe iS MaRkeD aS aWaY. }
  343. n59=  if (%operz != $null) { %clone IRCopZ: 13 $+ %operz $+  }
  344. n60=  else { %clone No IRCopZ pReSeNt. }
  345. n61=  %clonec = 1 | if (%cloneaddlist == $null) { %clone 3CloNeS... ? | %clone 3YeeHaa!! No CloNeS FouNd :▐ | goto end }
  346. n62=  else { %clone 3Oh Boy. . . CloNeS DeTeCteD *sigh* | goto loop }  
  347. n63=  :loop
  348. n64=  %clone CloNeS: 4 $+ %clonenick [ $+ [ $token(%clonec,32,%cloneaddlist) ] ] ( $+ *!*@ $+ $token(%clonec,32,%cloneaddlist) $+ )
  349. n65=  inc %clonec | if ($token(%clonec,32,%cloneaddlist) != $null) goto loop 
  350. n66=  :end
  351. n67=  %clone 15 $+ $str(25,=-) $+ = $+ 
  352. n68=  unset %clone* %awayz %operz %voiced %chnop %nonop | disable #adv | halt
  353. n69=}
  354. n70=#adv end
  355. n71=#status disabled
  356. n72=352:*: {
  357. n73=  if (%clone == $null) { set %clone echo 4 }
  358. n74=  if (+ isin $parm7) { set %voiced %voiced $parm6 }
  359. n75=  if (G isin $parm7) { set %awayz %awayz $parm6 }
  360. n76=  if (* isin $parm7) { set %operz %operz $parm6 }
  361. n77=  if (%clonenick [ $+ [ $parm4 ] ] != $null) && ($parm4 !isin %cloneaddlist) { set %cloneaddlist %cloneaddlist $parm4 } 
  362. n78=  set %clonenick $+ $parm4 [ %clonenick [ $+ [ $parm4 ] ] ] $parm6 | halt
  363. n79=}
  364. n80=315:*: {
  365. n81=  %clone $str(25,=-) $+ =
  366. n82=  %clone BaZ's ChaNneL StaTiSTiC FoR ╗ $+ $parm2 $+ ½ . . .
  367. n83=  %clone ToTal PeoPLe ( $+ $nick(0,$parm2) $+ ) OpZ ( $+ $opnick(0,$parm2) $+ ) aNd NoN-OpZ ( $+ $nopnick(0,$parm2) $+ ) =)
  368. n84=  if (%awayz != $null) { %clone aWaY: %awayz }
  369. n85=  else { %clone No oNe iS MaRkeD aS aWaY. }
  370. n86=  if (%voiced != $null) { %clone VoiCeD: %voiced }
  371. n87=  else { %clone No oNe iS VoiCeD. }
  372. n88=  if (%operz != $null) { %clone IRCopZ: %operz }
  373. n89=  else { %clone No IRCopZ pReSeNt. }
  374. n90=  %clonec = 1 | if (%cloneaddlist == $null) { %clone CloNeS... ? | %clone YeeHaa!! No CloNeS FouNd :▐ | goto end }
  375. n91=  else { %clone Oh Boy. . . CloNeS DeTeCteD *sigh* | goto loop }  
  376. n92=  :loop
  377. n93=  %clone CloNeS: %clonenick [ $+ [ $token(%clonec,32,%cloneaddlist) ] ] ( $+ *!*@ $+ $token(%clonec,32,%cloneaddlist) $+ )
  378. n94=  inc %clonec | if ($token(%clonec,32,%cloneaddlist) != $null) goto loop 
  379. n95=  :end
  380. n96=  %clone $str(25,=-) $+ =
  381. n97=  unset %clone* %awayz %operz %voiced | disable #status | halt
  382. n98=}
  383. n99=#status end
  384. n100=#CloneScan disabled
  385. n101=352:*: {
  386. n102=  if (%clonenick [ $+ [ $parm4 ] ] != $null) && ($parm4 !isin %cloneaddlist) { set %cloneaddlist %cloneaddlist $parm4 } 
  387. n103=  set %clonenick $+ $parm4 [ %clonenick [ $+ [ $parm4 ] ] ] $parm6 | halt
  388. n104=}
  389. n105=315:*: {
  390. n106=  if (%clone == $null) { set %clone echo 4 }
  391. n107=  %clone BaZ's CloNe ScaN FoR ╗ $+ $parm2 $+ ½
  392. n108=  %clonec = 1 | if (%cloneaddlist == $null) { %clone CloNeS...? | %clone YeeHaa!! No CloNeS FouNd :▐ | goto end }
  393. n109=  else { %clone Oh Boy. . . CloNeS DeTeCteD *sigh* | goto loop }  
  394. n110=  :loop
  395. n111=  %clone CloNeS: %clonenick [ $+ [ $token(%clonec,32,%cloneaddlist) ] ] ( $+ *!*@ $+ $token(%clonec,32,%cloneaddlist) $+ )
  396. n112=  inc %clonec | if ($token(%clonec,32,%cloneaddlist) != $null) goto loop 
  397. n113=  :end
  398. n114=  unset %clone* %ticks | disable #CloneScan | halt
  399. n115=}
  400. n116=#CloneScan end
  401. n117=~~~~~~~~~~~~~~~~~~~CHECK PERSON~~~~~~~~~~~~~~~~~~~~~~~~~~
  402. n118=; ================================================================
  403. n119=; 319     RPL_WHOISCHANNELS     "<nick> :{[@|+]<channel><space>}"
  404. n120=;
  405. n121=319:*: {
  406. n122=  if (%checkperv == on) {
  407. n123=    %i = 3
  408. n124=    :loop1
  409. n125=    %tempparm = $parm [ $+ [ %i ] ]
  410. n126=    if (%tempparm == $null) { halt }
  411. n127=    if (*sex* iswm %tempparm) { echo 6 $active [CheckPervÖ Alert]- %badnick is in %tempparm | goto skip }
  412. n128=    if (*kiddysex* iswm %tempparm) { echo 6 $active [CheckPervÖ Alert]- %badnick is in %tempparm | goto skip }
  413. n129=    if (*son* iswm %tempparm) && (*sex* iswm %tempparm) { echo 6 $active [CheckPervÖ Alert]- %badnick is in %tempparm | goto skip }
  414. n130=    if (*porn* iswm %tempparm) && (*sex* iswm %tempparm) { echo 6 $active [CheckPervÖ Alert]- %badnick is in %tempparm | goto skip }
  415. n131=    if (*daughter* iswm %tempparm) && (*sex* iswm %tempparm) { echo 6 $active [CheckPervÖ Alert]- %badnick is in %tempparm | goto skip }
  416. n132=    if (*girl* iswm %tempparm) { echo 6 $active [CheckPervÖ Alert]- %badnick is in %tempparm | goto skip }
  417. n133=    if (*warez* iswm %tempparm) { echo 6 $active [CheckPervÖ Alert]- %badnick is in %tempparm | goto skip }
  418. n134=    if (*arez* iswm %tempparm) { echo 6 $active [CheckPervÖ Alert]- %badnick is in %tempparm | goto skip }
  419. n135=    if (*fserv* iswm %tempparm) { echo 6 $active [CheckPervÖ Alert]- %badnick is in %tempparm }
  420. n136=    :skip
  421. n137=    inc %i | goto loop1
  422. n138=  }
  423. n139=}
  424. n140=; =========================================================================
  425. n141=; 318     RPL_ENDOFWHOIS     "<nick> :End of /WHOIS list"
  426. n142=;
  427. n143=318:*: {
  428. n144=  if (%checkperv == on) {
  429. n145=    %checkperv = off
  430. n146=    unset %tempCHAN
  431. n147=    unset %tempparm    
  432. n148=    unset %i
  433. n149=    unset %badnick
  434. n150=  }
  435. n151=}
  436. n152=~~~~~~~~~~~~~SCAN TEEN CHANNELS~~~~~~~~~~~~~~~~~~~~~~~~~~~
  437. n153=319:*: { 
  438. n154=  if (teensex isin $parm2*) { 
  439. n155=    echo 5 -s $parm2 ison $parm3* 
  440. n156=    msg #Connected $parm2 Leave the  Kiddie Chan with in 20 secs or be removed from #Connected !
  441. n157=    inc % $+ $parm2 $+ warn 1 | echo 4 $me % [ $+ [ $parm2  $+  warn ] ]
  442. n158=    if (% [ $+ [ $parm2 $+ warn ] ]   > 1) { ban #mirc-scripts $parm2 3 |  kick #Connected $parm2 You where warned % [ $+ [ $parm2 $+ warn ] ] times ,  ! NO Kiddie Chans !! | unset % $+ $parm2 $+ warn | halt } 
  443. n159=    timer 1 20 /whois $parm2  
  444. n160=  }  
  445. n161=  else { echo 5 -s $parm2 ison $parm3* | if (% [ $+ [ $parm2 $+ warn ] ] != $null) { msg $parm2 Thank you for your cooperation !!! } | unset % $+ $parm2 $+ warn | halt } 
  446. n162=}
  447. n163=~~~~~~~~~~~~~PERV KICKER~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  448. n164=#checkchan disabled
  449. n165=319:*: {
  450. n166=  %checkchan = $parms | %checknum = $count(%checkchan,$chr(32)) + 1 | %i = 0 | :loop | inc %i 
  451. n167=  if (%i > %checknum) { goto end } 
  452. n168=  else { 
  453. n169=    %checkreal = $token(%i,32,%checkchan) 
  454. n170=    if (teen isin %checkreal) && ((sex isin %checkreal) || (pic isin %checkreal)) { ban -u300 %schan %snick 3 | kick %schan %snick º╗í½º []baz▀ot[] Teen Sex Channel Detected ( $+ %checkreal $+ ) 5 Minutes Ban! []baz▀ot[] º╗í½º | goto end }  
  455. n171=  else { goto loop } } 
  456. n172=  :end | .disable #checkchan | unset %check* 
  457. n173=}
  458. n174=#checkchan
  459. n175=~~~~~~~~~~~~~~~TESTING~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  460.